home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 2 of 2).iso / c64-games.disk / centeart.d64 / center of earth (.txt)
Encoding:
Commodore BASIC  |  1995-01-01  |  15.7 KB  |  413 lines
  1. 100 CS$=CHR$(147):REM CLEAR SCREEN
  2. 110 CR$=CHR$(141):REM CARRIGE RETURN ONE LF
  3. 120 LF$=CHR$(10) :REM LINE FEED
  4. 121 LE%=16       :REM INPUT LENGTH
  5. 122 FL =-1       :REM FLAG FOR INPUT
  6. 130 PRINT""
  7. 140 PRINTCS$
  8. 150 PRINT"       [202]OURNEY TO THE [195]ENTER OF
  9. 160 [153]"         THE VALARTH ATNDVENTURE
  10. 170 PRINT"           BY [199]REG [200]ASSETT
  11. 180 [153]"     MODIFIED FOR LENPEEK(null) BY (null).(null)RENZEL
  12. 190 CP=1:GOSUB2820
  13. 200 PRINTCS$
  14. 210 GOSUB2700:GOSUB2480
  15. 220 IFCP=18AND(VB<>25ORNO<>21)THENGOTO240
  16. 230 GOTO250
  17. 240 PRINT"[200]ORRORS! [212]HE [212]ROLL THROWS AN AXE AT ME !"LF$"[201] AM DEAD":END
  18. 250 IFCP=18THEN PRINTM2$:F5=1:GOSUB2480
  19. 260 IFNO<23ORVB<1ORNO>30THEN430
  20. 270 IFNO<=26THENFD=FD+1:GOTO290
  21. 280 FD=-10000
  22. 290 IFNO>26THENNO=NO-4
  23. 300 NO=NO-22
  24. 310 IFCP=10ANDNO=1THENGOTO330
  25. 320 GOTO 340
  26. 330 PRINT:PRINT"AND FALL INTO THE LAVA ??? [198]AT CHANCHE !":GOSUB2480:GOTO260
  27. 340 IFCP=11ANDNO=2THEN360
  28. 350 GOTO380
  29. 360 PRINT"[196]O YOU KNOW WHAT MOLTEN LAVA IS ???
  30. 370 [153]"RIGHT$T'SHOT, THAT'S WHAT !":[141]2480:[137]260
  31. 380 [139]CP[178]29[175]OB(10,0)[178]29[175](NO[178]4[176]NO[178]2)[167]400
  32. 390 [137]410
  33. 400 [153]"(null)HE LEFT$YDRA WON'T LET ME THROUGH !":[141]2480:[137]260
  34. 410 [139]P(CP,NO)[178]0[167][153]"RIGHT$ CAN'T GO THAT WAY !":[141]2480:[137]260
  35. 420 CP[178]P(CP,NO):[137]200
  36. 430 [139] VB[179][177]2[175]VB[179][177]20[137]540
  37. 440 [139]NO[178]10[175]OB(33,0)[178]CP[167][153]"RIGHT$T IS SORT OF HEAVY, YOU KNOW.":[141]2480:[137]260
  38. 450 [139]NO[178]0[167][153]"RIGHT$ DON'T KNOW WHAT A ";[199](34)NO$[199](34)" IS.":[141]2480:[137]260
  39. 460 [139]OB(NO,0)[179][177]CP[167][153]"RIGHT$ DON'T SEE IT HERE.":[141]2480:[137]260
  40. 470 [139]NO[178]10[176]NO[178]20[167][153]"(null)H GIVE ME A BREAK!!":[141]2480:[137]260
  41. 480 [139]OB(NO,0)[178][171]1[167][153]"RIGHT$'M ALREADY CARRYING IT.":[141]2480:[137]260
  42. 490 [139]OB(NO,0)[178]CP[175]NT[177][178]6[167]510
  43. 500 [137]530
  44. 510 [153]"RIGHT$ CAN'T CARRY ANY MORE. ":[153]"(null)OU'LL HAVE TO DROP SOMETHING."
  45. 520 [141]2480:[137]260
  46. 530 [139]OB(NO,0)[178]CP[167][153]"LENHECK.":NT[178]NT[170]1:OB(NO,0)[178][171]1:[141]2480:[137]260
  47. 540 [139]VB[179][177]4[175]VB[179][177]29[137]590
  48. 550 F3[178]0
  49. 560 [153]"RIGHT$'M CURRENTLY CARRYING :":[129]I[178]1[164]LO:[139]OB(I,0)[178][171]1[167][153]OB$(I):F3[178]1
  50. 570 [130]:[139]F3[178]0[167][153]"(null)OTHING.
  51. 580 GOSUB2480:GOTO260
  52. 590 IFVB=3GOTO200
  53. 600 IF NO=0AND VB=0THENPRINT"[212]HAT DOESN'T MAKE ANY SENSE TO ME.":GOSUB2480:GOTO260
  54. 610 IF VB<>5THEN670
  55. 620 J=0
  56. 630 FORI=1TOLO:IFOB(I,0)=1THENJ=J+OB(I,1)
  57. 640 NEXT:PRINT"[207]UT OF A MAXIMUM OF 175 POINTS,":PRINT"YOU HAVE";J
  58. 650 IFJ=0THENPRINT"[194]OY, YOU STINK !
  59. 660 [141]2480:[137]260
  60. 670 [139]VB[179][177]6[175]VB[179][177]22[167]760
  61. 680 [139]NO$[179][177]"EVE"[175]NO$[179][177]"ALL"[167]720
  62. 690 [129]I[178]1[164]LO:[139]OB(I,0)[178][171]1[167]OB(I,0)[178]CP
  63. 700 [130]:NT[178]0
  64. 710 [153]"(null)KAY.":[141]2480:[137]260
  65. 720 [139]OB(NO,0)[179][177][171]1[167]740
  66. 730 [137]750
  67. 740 [153]"LEFT$OW CAN RIGHT$ DROP WHAT RIGHT$'M NOT HOLDING ???":[141]2480:[137]260
  68. 750 OB(NO,0)[178]CP:[153]"(null).K.":NT[178]NT[171]1:[141]2480:[137]260
  69. 760 [139]VB[179][177]7[175]VB[179][177]28[167]800
  70. 770 [139]H$(CP)[178]""[167][153]"(null)OU GOT ME INTO THIS MESS,":[153]"NOW YOU GET ME OUT !
  71. 780 PRINTH$(CP):H$(CP)=""
  72. 790 GOSUB2480:GOTO260
  73. 800 IFVB<>8GOTO880
  74. 810 PRINTCS$:PRINT"[211]AVING...":OPEN8,8,8,"@0:JOURNEY,SEQ,WRITE"
  75. 820 REM
  76. 830 FORI=1TOLO:IFOB$(I)=""GOTO850
  77. 840 PRINT#8,OB(I,0)
  78. 850 NEXT
  79. 860 PRINT#8,CP:CLOSE8
  80. 870 GOTO200
  81. 880 IFVB<>9THEN960
  82. 890 PRINTCS$:PRINT"[204]OADING...":OPEN8,8,8,"0:JOURNEY,SEQ,READ"
  83. 900 REM IFDS>20THENPRINT"[198]EHLER[146]:"DS$:CLOSE8:GOTO4050:REM BASIC 4.0
  84. 910 FORI=1TOLO:IFOB$(I)=""GOTO930
  85. 920 INPUT#8,O1$:OB(I,0)=VAL(O1$)
  86. 930 NEXT
  87. 940 INPUT#8,CP$
  88. 950 CP=VAL(CP$):CLOSE8:GOTO200
  89. 960 IFVB<>10GOTO980
  90. 970 GOTO2130
  91. 980 IFVB<>11GOTO1010
  92. 990 IFNO=0THENPRINT"[211]AY WHAT ?":GOSUB2480:GOTO260
  93. 1000 PRINT"[207]KAY, IF IT IS REALLY NECESSARY..."NO$:GOSUB2480:GOTO260
  94. 1010 IFVB<>12GOTO1050
  95. 1020 IFNO<>12THENPRINT"[201] DON'T DO STUPID THINGS.":GOSUB2480:GOTO260
  96. 1030 IFOB(12,0)<>-1THENPRINT"[201] DON'T HAVE ANY COKE TO DRINK !":GOSUB2480:GOTO260
  97. 1040 PRINTM3$:OB(12,0)=0:OB(13,0)=-1:GOSUB2480:GOTO260
  98. 1050 IFVB<>13GOTO1150
  99. 1060 IFOB(31,0)<>-1THENPRINT"[194]UT [201] HAVE NO FOOD !!":GOSUB2480:GOTO260
  100. 1070 IFOB(NO,0)<>CPTHENPRINT"[201] DON'T SEE IT.":GOSUB2480:GOTO260
  101. 1080 IFNO<>10GOTO1110
  102. 1090 PRINT"[212]HE [200]YDRA WHARFS DOWN THE FOOD.":OB(31,0)=0
  103. 1100 OB$(10)="A GIANT [200]YDRA RUBBING HIS"+CR$+"STOMACH":GOSUB2480:GOTO260
  104. 1110 IFNO<>20GOTO1130
  105. 1120 PRINT"[212]HE BUGS IN THESE CAVES ONLY EAT HUMAN FLESH.":GOSUB2480:GOTO260
  106. 1130 IFNO<>3THENPRINT"[217]OU CAN'T BE SERIOUS.":GOSUB2480:GOTO260
  107. 1140 PRINT"[201]T REFUSES TO EAT THE FOOD.":GOSUB2480:GOTO260
  108. 1150 IFVB<>14GOTO1300
  109. 1160 IFNO=10ANDOB(33,0)=CPGOTO1180
  110. 1170 GOTO1200
  111. 1180 PRINT"[212]HE UNDERTAKER JUST TOOK HIM AWAY."
  112. 1190 OB(33,0)=0:GOSUB2480:GOTO260
  113. 1200 IFOB(NO,0)<>CPANDOB(NO,0)<>-1THEN1220
  114. 1210 GOTO1240
  115. 1220 PRINT"[201] DON'T SEE IT AND [201]'M NOT HOLDING IT,":PRINT"SO HOW CAN [201] HIT IT ?"
  116. 1230 GOSUB2480:GOTO260
  117. 1240 IFNO=3THENPRINT"[206]O!!! [201] KIND OF LIKE THE PARROT!":PRINT"[208]OLLY WANT A CWAKER ?
  118. 1250 [139]NO[179][177]10[167]1270
  119. 1260 [153]"(null)KAY...":[153]"(null)HE LEFT$YDRA GRUNTS >> STR$AMN (null)OSQUITOES <<
  120. 1270 IFNO=20THENPRINT"[217]UCH ! [201] DON'T WANT TO TOUCH IT !!!
  121. 1280 [139]NO[178]3[176]NO[178]10[176]NO[178]20[167][141]2480:[137]260
  122. 1290 [153]"(null)KAY...":[153]"(null)UCH ! RIGHT$ HURT MY HAND !":[141]2480:[137]260
  123. 1300 [139]VB[179][177]15[167]1330
  124. 1310 [153]"RIGHT$ CAN'T KILL ANYTHING, RIGHT$'M TOO WEAK. PEEKUT";
  125. 1320 [153]"MAYBE IF YOU WERE A BIT MORE SPECIFIC...":[141]2480:[137]260
  126. 1330 [139]VB[179][177]16[137]1470
  127. 1340 [139]OB(33,0)[178]CP[175]NO[178]10[167]1360
  128. 1350 [137]1370
  129. 1360 [153]"RIGHT$T IS ALREADY BURNED TO A CRISP.":[141]2480:[137]260
  130. 1370 [139]OB(6,0)[179][177][171]1[167][153]"RIGHT$ DON'T HAVE A LIGHTER OR MATCHES !":[141]2480:[137]260
  131. 1380 [139]NO[178]3[167][153]"(null)EVER!! (null)OU KNOW SOMETHING, (null)OU'RE A SADIST.":[141]2480:[137]260
  132. 1390 [139]NO[178]10[175]OB(10,0)[178]CP[167]1410
  133. 1400 [137]1430
  134. 1410 OB(10,0)[178]0:OB(33,0)[178]CP:[153]"(null)HE LEFT$YDRA CRUMBLES TO THE GROUND DEAD."
  135. 1420 [141]2480:[137]260
  136. 1430 [139]NO[178]20[167][153]"(null)HE BUG CANNOT BE BURNED. < CHR$ULP >":[141]2480:[137]260
  137. 1440 [139]NO[178]10[167]OB(10,0)[178]0
  138. 1450 [153]"RIGHT$T DOESN'T BURN.
  139. 1460 GOSUB2480:GOTO260
  140. 1470 IFVB=17THENPRINT"[193]ND JUST WHO DO YOU THINK [201] AM, [210]OCKY ??":GOSUB2480:GOTO260
  141. 1480 IFVB=18THEN1500
  142. 1490 GOTO1520
  143. 1500 PRINT"[201] DON'T KNOW HOW TO LIGHT THINGS. [201]F YOU"CR$"WANT ME TO ";
  144. 1510 PRINT"BURN SOMETHING TELL ME SO !":GOSUB2480:GOTO260
  145. 1520 IFVB<>19GOTO1650
  146. 1530 IFNO$="COI"THENNO$="QUA":NO=7
  147. 1540 IF NO=0THENPRINT"[201] DON'T KNOW WHAT ONE IS.":GOSUB2480:GOTO260
  148. 1550 IFNO=7GOTO1570
  149. 1560 IFOB(NO,0)<>-1THENPRINT"[201]'M NOT HOLDING IT RIGHT NOW.":GOSUB2480:GOTO260
  150. 1570 IFCP<>27THENPRINT"[201] DON'T SEE ANY COKE MACHINE HERE.":GOSUB2480:GOTO260
  151. 1580 IFNO<>7THENPRINT"[212]HAT IS RIDICULOUS.":GOSUB2480:GOTO260
  152. 1590 IFOB(NO,0)<>-1THENPRINT"[201] HAVE NO MONEY.":GOSUB2480:GOTO260
  153. 1600 IFOB(7,0)=-1ANDCP=27THEN1620
  154. 1610 GOTO1650
  155. 1620 PRINT"[193]LL RIGHT.   [195]HIKCLIKCHINGGGG!
  156. 1630 [153]"ATN COKE POPPED OUT. (null)HERE IS NOW A BOTTLEOF COKE HERE.
  157. 1640 OB(7,0)=0:NT=NT-1:OB(12,0)=27:GOSUB2480:GOTO260
  158. 1650 IFVB<>21GOTO1730
  159. 1660 IFNO<>18ANDOB(NO,0)=-1THENPRINT"[201]T'S KIND OF HEAVY, YOU KNOW.":GOSUB2480:GOTO260
  160. 1670 IFOB(NO,0)<>-1THENPRINT"[198]IRST YOU HAVE TO HELP ME FIND IT,DUMMY!":GOSUB2480:GOTO260
  161. 1680 IFCP=10ORCP=11GOTO1700
  162. 1690 PRINT"[206]OTHING HAPPEND":GOSUB2480:GOTO260
  163. 1700 IFCP=10THENCP=11:GOTO1720
  164. 1710 CP=10
  165. 1720 GOTO200
  166. 1730 IFVB=23THENVB=1:GOTO260
  167. 1740 IFVB=24THENPRINT"[212]RY KILL "NO$:GOSUB2480:GOTO260
  168. 1750 IFVB<>25THEN1780
  169. 1760 IFNO=21THENPRINT"[206]OTHING HAPPEND":GOSUB2480:GOTO260
  170. 1770 PRINT"[211]IR WHAT ??? [201] DON'T UNDERSTAND !":GOSUB2480:GOTO260
  171. 1780 IFVB<>26GOTO1880
  172. 1790 IFCP=1ANDOB(14,0)-1ANDOB(22,0)=1THENPRINT"[207]KAY !!!":GOTO2120
  173. 1800 IFCP<>1THENPRINT"[201] CAN'T.":GOSUB2480:GOTO260
  174. 1810 IFVB<>26THEN1880
  175. 1820 IFOB(14,0)<>-1THENPRINT"[201] CAN'T. [201] HAVE NO TOOLS.":GOSUB2480:GOTO260
  176. 1830 PRINT"[201] CAN'T. [201] DON'T SEE FRIBULATING"
  177. 1840 PRINT"GONKULATOR AROUND ME.";
  178. 1850 IFOB(22,0)=-1THENPRINT" [201] THINK [201] HAVE TO DROP IT FIRST.
  179. 1860 [153]
  180. 1870 [141]2480:[137]260
  181. 1880 [139]VB[179][177]27[167]2070
  182. 1890 [139]NO[178]0[167][153]"(null)HAT THE DEVIL IS A "NO$" ??":[141]2480:[137]260
  183. 1900 [139]NO[178]20[176]NO[178]10[167][139]OB(NO,0)[178]CP[137]1920
  184. 1910 [137]1930
  185. 1920 [153]"(null)UCH !!! RIGHT$'D NEVER EAT A "NO$" !!!":[141]2480:[137]260
  186. 1930 [139]NO[178]10[175]OB(33,0)[178]CP[167]1950
  187. 1940 [137]1970
  188. 1950 [153]"(null)ELL...IT'S COOKED NOW, BUT IT STILL    LOOKS KIND OF GROSS."
  189. 1960 [141]2480:[137]260
  190. 1970 [139]OB(NO,0)[179][177][171]1[167][153]"RIGHT$'M NOT HOLDING IT.":[141]2480:[137]260
  191. 1980 [139]NO[178]3[175]OB(3,0)[178][171]1[137]2000
  192. 1990 [137]2010
  193. 2000 [153]"RIGHT$'D RATHER NOT. RIGHT$ DON'T CARE FOR PARROT MEAT.":[141]2480:[137]260
  194. 2010 [139]NO[178]31[175]OB(31,0)[178][171]1[167]NT[178]NT[171]1:[137]2030
  195. 2020 [137]2050
  196. 2030 [153]"LEFT$UMM ! RIGHT$T WAS FILET MIGNON, MY FAVORITE DISH."
  197. 2040 OB(31,0)[178]0:[141]2480:[137]260
  198. 2050 [153]"RIGHT$ THINK THAT "OB$(NO)" WOULD":[153]"GIVE ME INDIGESTION,
  199. 2060 PRINT"AND [201] DON'T HAVE ANY [208]EPTO-[194]ISMOL.":GOSUB2480:GOTO260
  200. 2070 IFVB<>30THEN2110
  201. 2080 IFCP<>10ANDCP<>11THENPRINT"[206]OTHING HAPPEND.":GOSUB2480:GOTO260
  202. 2090 PRINT"[206]ICE TRY, BUT THAT'S AN OLD, WORN OUT"+CR$+"MAGIC WORD."
  203. 2100 GOSUB2480:GOTO260
  204. 2110 PRINT"[201] DON'T KNOW HOW TO DO THAT.":GOSUB2480:GOTO260
  205. 2120 FORI=1TO1000:NEXT
  206. 2130 PRINTCS$:PRINT"[207]UT OF A MAXIMUM OF 175 POINTS,":PRINT"YOU HAVE SCORED";:J=0
  207. 2140 FORI=1TOLO:IFOB(I,0)=1THENJ=J+OB(I,1)
  208. 2150 NEXT
  209. 2160 PRINTJ"POINTS.
  210. 2170 [139]J[179][177]175[137]2200
  211. 2180 [153]"ATNLL OF ADVENTUREDOM GIVES TRIBUTE TO YOU"
  212. 2190 [153]:[153]:[153]"        ATNDVENTURER CHR$RANDMASTER !":[128]
  213. 2200 [139]J[179]165[167]2220
  214. 2210 [153]"(null)OUR SCORE PUTS YOU IN":[153]:[153]:[153]"       (null)ASTER ATNDVENTURER LENLASS ATN":[128]
  215. 2220 [139]J[179]150[167]2240
  216. 2230 [153]"(null)OUR SCORE PUTS YOU IN":[153]:[153]:[153]"      (null)ASTER ATNDVENTURER LENLASS PEEK":[128]
  217. 2240 [139]J[179]140[167]2260
  218. 2250 [153]"(null)OUR HAVE REACHED A":[153]:[153]:[153]"      'MID$UNIOR (null)ASTER' STATUS":[128]
  219. 2260 [139]J[179]120[137]2280
  220. 2270 [153]"(null)OU MAY NOW CONSIDER YOURSELF A":[153]:[153]:[153]"      '(null)EASONED ATNDVENTURER'":[128]
  221. 2280 [139]J[179]110[137]2300
  222. 2290 [153]"(null)OU HAVE ACHIEVED THE RATING:":[153]:[153]:[153]"     'VALXPERIENCED ATNDVENTURER'":[128]
  223. 2300 [139]J[179]100[137]2320
  224. 2310 [153]"(null)OUR SCORE QUALIFIES YOU AS A":[153]:[153]:[153]"  ' (null)OVICE LENLASS ATNDVENTURER'":[128]
  225. 2320 [153]"(null)OU ARE OBVIOUSLY A RANK AMATEUR.":[153]"PEEKETTER LUCK NEXT TIME.":[128]
  226. 2330 [153]"CHR$ADZOOKS !!! ATN GIANT BUG JUST WALKED IN TO KILL ME !!!
  227. 2340 FF=1
  228. 2350 GOSUB2480
  229. 2360 IFNO$="SES"ANDVB$="OPE"GOTO2380
  230. 2370 GOTO2390
  231. 2380 PRINT"[212]HE BUG HAS SHRUNK TO IT'S PROPER SIZE  AND SCURRIED AWAY.":GOTO2460
  232. 2390 IFNO=20ORVB=15GOTO2420
  233. 2400 PRINT"[200]ELP ME !!!":PRINT"[201]'M BEING DEVOURED BY A GIANT BUG !!!"
  234. 2410 PRINT"[212]HE END IS NEAR ! [207]W !! [212]HIS HURTS":PRINT"[201]'M DYING...DYING...DEAD.":END
  235. 2420 IFOB(2,0)<>-1THENNO=2:PRINT"[201] DON'T HAVE A SWORD !!!":GOTO2390
  236. 2430 IFSW=8THENPRINT"[205]Y SWORD IS DULL, REMEMBER ???":NO=2:GOTO2390
  237. 2440 PRINT"[196]ING ! DONG ! [212]HE BUG IS DEAD !!!
  238. 2450 SW[178]SW[170]1:[139]SW[178]8[167][153]"(null)Y SWORD IS DULL NOW.
  239. 2460 GOSUB2480:GOTO260
  240. 2470 END
  241. 2480 PRINT:GOSUB4040:PRINT"[197]NTER YOUR COMMAND "; :GOSUB5000
  242. 2490 IFCM$="N"THENCM$="GO N"
  243. 2500 IFCM$="S"THENCM$="GO S"
  244. 2510 IFCM$="E"THENCM$="GO E"
  245. 2520 IFCM$="W"THENCM$="GO W"
  246. 2530 IFCM$="I"THENCM$="INVENTORY"
  247. 2540 IFCM$="L"THENCM$="LOO"
  248. 2550 IFCM$="ABR"ANDF5<3ANDFF=1THENNO$="SES":VB$="OPE":FF=0:F5=F5+1:RETURN
  249. 2560 VB$="":NO$="":VB=0:NO=0
  250. 2570 LC=LEN(CM$):FORI=1TOLC
  251. 2580 IFMID$(CM$,I,1)<>" "THENVB$=VB$+MID$(CM$,I,1):NEXT
  252. 2590 NO$=MID$(CM$,LEN(VB$)+1):VB$=LEFT$(VB$,3)
  253. 2600 IFLEFT$(NO$,1)=" "THENNO$=MID$(NO$,2):GOTO2600
  254. 2610 NO$=LEFT$(NO$,3)
  255. 2620 FORI=1TONV:IFLEFT$(VB$(I),3)=VB$THENVB=I:GOTO2650
  256. 2630 NEXT
  257. 2640 VB=0:NO$=LEFT$(VB$,3):GOTO2660
  258. 2650 IFLEN(VB$)+1>=LEN(CM$)THENNO=0:RETURN
  259. 2660 FORI=1TONN:IFLEFT$(NO$(I),3)=NO$THEN2690
  260. 2670 NEXT
  261. 2680 NO=0:RETURN
  262. 2690 NO=I:RETURN
  263. 2700 PRINTP$(CP):PRINT
  264. 2710 FORI=1TOLO:IFOB(I,0)=CPTHENPRINT"[212]HERE IS "OB$(I)" HERE.
  265. 2720 [130]
  266. 2730 [153]"RIGHT$ CAN GO :     ";:F2[178]0
  267. 2740 [129]I[178]1[164]4:[139]P(CP,I)[179][177]0[167][153]NO$(I[170]22)"  ";:F2[178]1
  268. 2750 [130]:[139]F2[178]0[167][153]"(null)OWHERE !
  269. 2760 IFCP=18ANDOB(3,0)=-1THENPRINT:PRINTM1$
  270. 2770 IFINT(RND(1)*35+1)=5ANDCP<>1ANDCP<>37ANDCP<>27THENPRINT:GOTO2330
  271. 2780 IFFD<4GOTO2810
  272. 2790 PRINT:PRINT"[201]F YOU'D LIKE, YOU CAN MAKE IT EASIER ONYOURSELF BY TYPING"
  273. 2800 PRINT"N, S, E, OR W INSTEAD OF NORTH,SOUTH,ECT":FD=0
  274. 2810 RETURN
  275. 2820 NP=37:DIMP$(NP)
  276. 2830 P$(1)="[201] AM IN A SHIP. [207]N A COMPUTER SCREEN IN"+CR$+"HERE IT SAYS: "
  277. 2840 P$(1)=P$(1)+"[211]HIP WILL NOT FUNCTION --"+CR$+"FRIBULATING GONKULATOR IS "
  278. 2850 P$(1)=P$(1)+"BURNED OUT.[201]T"+CR$+"IS OBVIOUS THAT THIS SHIP HAS CRASHED."
  279. 2860 DATA2,6,5,4:P$(2)="[201]'M IN A COBBLESTONE HALLWAY. [201] CAN HERE"+LF$
  280. 2870 P$(2)=P$(2)+"CHIRPING NEARBY. [211]OUNDS LIKE BUGS...":DATA 8,1,3,5
  281. 2880 P$(3)="[201]'M IN A DARK ROOM...OH NO !!! [212]HERE ARE"+LF$+"GIANT BUGS ALL"
  282. 2890 P$(3)=P$(3)+" AROUND ME !!!":DATA0,0,0,2
  283. 2900 P$(4)="[201]'M IN A SMALL ROOM. [193] SCRIBBLING HERE"+CR$+"SAYS: "
  284. 2910 P$(4)=P$(4)+"[200]AR HAR HAR! [217]OU'LL NEVER MAKE IT!       >> ARBADAC ARBA <<"
  285. 2920 DATA0,7,1,0
  286. 2930 P$(5)="[201]'M IN A DUSTY COBBLESTONE HALLWAY.":DATA0,25,2,1
  287. 2940 P$(6)="[201]'M IN A DUSTY PLACE. [201]T IS VERY DARK IN"+LF$+"HERE. [201]'M SCARED !"
  288. 2950 DATA1,24,0,0
  289. 2960 P$(7)="[201]'M IN A LOW CRAWL SPACE. [201]T SEEMS AS IF"+LF$+"WE'RE NOT "
  290. 2970 P$(7)=P$(7)+"SUPPOSED TO BE HERE...":DATA4,0,15,0
  291. 2980 P$(8)="[201]'M IN A ROOM WITH ROCK WALLS. [201]MBEDDED"+CR$+"IN THE WALLS ARE "
  292. 2990 P$(8)=P$(8)+"SCATTERD RUBIES.":DATA9,2,0,13
  293. 3000 P$(9)="[201]'M IN A DARK ROOM. [212]HIS ONE IS NOT SO"+CR$+"SCARY. "
  294. 3010 P$(9)=P$(9)+"[201] THINK [201] HEAR GRUNTS AND GROANS NEARBY.":DATA10,8,23,0
  295. 3020 P$(10)="[201]'M ON THE SOUTH SIDE OF A CHASM. [205]OLTEN"+LF$+"LAVA IS BENEATH ME."
  296. 3030 DATA11,9,0,0
  297. 3040 P$(11)="[201]'M ON THE NORTH SIDE OF THE CHASM.":DATA16,10,0,0
  298. 3050 P$(12)="[201]'M IN A MAZE OF TWISTY LITTLE PASSAGES.":DATA12,12,13,14
  299. 3060 P$(13)=P$(12):DATA13,13,8,12
  300. 3070 P$(14)=P$(12):DATA14,15,14,12
  301. 3080 P$(15)=P$(12):DATA14,15,15,7
  302. 3090 P$(16)="[201]'M ON A WOOD PLATFORM. [193] SIGN WARNS:"+CR$
  303. 3100 P$(16)=P$(16)+"[199]O BACK ! [194]EWARE ! [199]O SOUTH !!! [212]HERE"
  304. 3110 P$(16)=P$(16)+" IS"+LF$+"A RICKETY BRIDGE TO THE NORTH.":DATA17,11,0,0
  305. 3120 P$(17)="[201]'M IN A DUSTY PASSAGE. [193] SIGN POINTS"+CR$+"WEST AND SAYS: "
  306. 3130 P$(17)=P$(17)+"[212]O [212]ROLLS [208]LACE --->"+CR$+"[193] RICKETY BRIDGE "
  307. 3140 P$(17)=P$(17)+"EXTENDS SOUTHWARD."+CR$+"[205]ARKINGS IN THE DUST INDICATE "
  308. 3150 P$(17)=P$(17)+"THAT SOME-"+LF$+"ONE WAS HERE RECENTLY.":DATA0,16,0,18
  309. 3160 P$(18)="[193] VOICE BOOMS OUT : [215]HO DARES TO ENTER"+CR$
  310. 3170 P$(18)=P$(18)+"MY PALACE ??? ([211]OUNDS LIKE [212]ROLL TO ME!)
  311. 3180 [131]0,0,0,19
  312. 3190 P$(19)[178]"RIGHT$'M IN (null)ROLL'S (null)ALACE. RIGHT$T'S BREATH-"[170]CR$[170]"TAKING !!"
  313. 3200 P$(19)[178]P$(19)[170]" (null)HE CEILING IS SO HIGH RIGHT$ CAN'T"[170]LF$[170]"EVEN SEE IT !"
  314. 3210 [131]0,20,0,0
  315. 3220 P$(20)[178]"RIGHT$'M AT ONE END OF A SECRET PASSAGE.":[131]19,21,0,0
  316. 3230 P$(21)[178]"RIGHT$'M IN A SECRET PASSAGE.":[131]21,21,20,22
  317. 3240 P$(22)[178]P$(21):[131]21,22,22,23
  318. 3250 P$(23)[178]P$(20):[131]23,9,22,23
  319. 3260 P$(24)[178]"RIGHT$'M IN A HUGE ICE CAVERN. (null)HE CEILING   AND WALLS ARE "
  320. 3270 P$(24)[178]P$(24)[170]"COMPLETELY ICE.":[131]6,26,25,0
  321. 3280 P$(25)[178]"RIGHT$'M IN A ROOM WITH MANY ANIMALS..."
  322. 3290 P$(25)[178]P$(25)[170]"(null)AIT !"[170]LF$[170]"(null)HEY'VE ALL RAN AWAY":[131] 5,0,0,0
  323. 3300 P$(26)[178]"RIGHT$ AM IN A ROOM WITH TRACES OF SLIME ON"[170]CR$[170]"THE FLOORS AND WALLS."
  324. 3310 [131]24,29,27,28
  325. 3320 P$(27)[178]"RIGHT$'M IN...ATNL'S DINER ??? (null)HERE'S A COKE"[170]CR$[170]"MACHINE HERE. RIGHT$T SAYS:"
  326. 3330 P$(27)[178]P$(27)[170]" VALNJOY LENOCA-LENOLA. 25 LENENTS (NO LENANADIAN COIN,(null)UARTER ONLY)"
  327. 3340 [131]0,0,0,26
  328. 3350 P$(28)[178]"RIGHT$'M IN A HUGE PIT.":[131]0,0,26,0.
  329. 3360 P$(29)[178]"RIGHT$'M IN THE LEFT$YDRA (null)OOM. (null)HE WALLS ARE ALL"[170]LF$[170]"SLIME. "
  330. 3370 P$(29)[178]P$(29)[170]"PEEKOY, RIGHT$'VE NEVER SEEN ANYTHING SO"[170]CR$[170]"GROSS IN MY LIFE !"
  331. 3380 [131]26,30,31,32
  332. 3390 P$(30)[178]"RIGHT$'M IN THE STR$RAGON (null)OOM. RIGHT$T SEEMS TO BE"[170]CR$[170]"DECORATED WITH DRAGONS.
  333. 3400 DATA29,34,0,33
  334. 3410 P$(31)="[201]'M IN A TORTURE CHAMBER. [204]ET'S GET OUT"+CR$+"OF HERE QUICK !!"
  335. 3420 DATA31,29,31,31
  336. 3430 P$(32)="[212]HIS IS THE [195]LAM [210]OOM. [212]HE WALLS ARE"+CR$+"SOLID CLAMSHELL "
  337. 3440 P$(32)=P$(32)+"EMBEDDED IN LIMESTONE.":DATA0,0,29,0
  338. 3450 P$(33)="[201]'M IN [205]AMMOTH [199]ARDEN."+CR$+"[212]HIS IS ALL PLANTS.":DATA0,0,30,0
  339. 3460 P$(34)="[201]'M IN THE [214]ELVET [210]OOM. [212]HE WALLS AND"+CR$+"CEILING ARE VELVET."
  340. 3470 DATA30,34,35,0
  341. 3480 P$(35)="[201]'M IN A ARABIAN ROOM. [193]RABIAN GUITARS"+CR$+"ARE PLAYING NEARBY."
  342. 3490 P$(35)=P$(35)+"[212]HERE IS AN OIL SLICKHERE. [204]OOKS LIKE MACHINE OIL, 10-[215]-30."
  343. 3500 DATA36,37,0,34
  344. 3510 P$(36)="[201]'M IN THE [212]REASURE [210]OOM. [205]ANY DWARVES"+CR$+"GUARD SOME PRETTY "
  345. 3520 P$(36)=P$(36)+"SCRAWNY TREASURE."+CR$+"[206]OTHING TO FLIP OVER, ANYWAY."
  346. 3530 DATA0,35,0,0
  347. 3540 P$(37)="[201]'M AT [205]AC'S [197]ARTHDIGGER [194]ODY [211]HOP.":DATA0,0,0,35
  348. 3550 DIMP(37,4):FORI=1TO37:FORJ=1TO4:READP(I,J):NEXT:NEXT
  349. 3560 LO=33:DIMOB$(LO),OB(LO,1)
  350. 3570 OB$(1)="A SET OF KEYS":DATA6,0:OB$(2)="A SHINY SWORD":DATA16,0
  351. 3580 OB$(3)="A PARROT IN A CAGE":DATA25,5:OB$(4)="A GOLD NUGGET":DATA4,10
  352. 3590 OB$(5)="A 35,000 CARAT DIAMOND":DATA7,10:OB$(6)="A CIGARETTE LIGHTER":DATA28,0
  353. 3600 OB$(7)="A QUARTER":DATA28,0:OB$(8)="AN ENORMOUS EMERALD":DATA32,15
  354. 3610 OB$(9)="SOME SILVER BARS":DATA33,15:OB$(10)="A GIANT [200]YDRA WITH NINE HEADS "
  355. 3620 DATA29,0
  356. 3630 OB$(11)="A MING VASE":DATA30,10:OB$(12)="A BOTTLE OF COKE":DATA0,0
  357. 3640 OB$(13)="AN EMPTY COKE BOTTLE":DATA0,0:OB$(14)="SOME TOOLS":DATA34,0
  358. 3650 OB$(15)="A LARGE RUBY":DATA8,15:OB$(16)="GOLD BARS":DATA19,20
  359. 3660 OB$(17)="A DIAMOND NECKLACE":DATA19,25:OB$(18)="A MAGIC WAND":DATA14,0
  360. 3670 OB$(22)="A FRIBULATING GONKULATOR":DATA37,50
  361. 3680 OB$(20)="A GIANT BUG ASLEEP":DATA31,0
  362. 3690 OB$(31)="SOME TASTY FOOD":OB$(32)="SOME HUMAN SKELETONS"
  363. 3700 OB(32,0)=31:OB(32,1)=0
  364. 3710 OB$(33)="A DEAD [200]YDRA ON THE GROUND"
  365. 3720 FORI=1TO20:READOB(I,0),OB(I,1):NEXT
  366. 3730 OB(22,0)=OB(19,0):OB(22,1)=OB(19,1)
  367. 3740 OB(19,1)=0:OB(19,0)=0
  368. 3750 OB(31,0)=27:OB(31,1)=0
  369. 3760 DATA KEYS,SWORD,PARROT,NUGGET,DIAMOND,LIGHTER,QUARTER,EMERALD,SILVER,HYDRA
  370. 3770 DATA VASE,COKE,BOTTLE,TOOLS,RUBY,GOLD,NECKLACE,WAND,SIGN,BUG,ALEXANDER
  371. 3780 DATA GONKULATOR,NORTH,SOUTH,EAST,WEST,N,S,E,W,FOOD,SKELETONS
  372. 3790 NN=32:DIMNO$(NN)
  373. 3800 FORI=1TONN:READNO$(I):NEXT
  374. 3810 DATA GO,GET,LOOK,INVEN,SCORE,DROP,HELP,SAVE,LOAD,QUIT,SAY,DRINK
  375. 3820 DATA FEED,HIT,KILL,BURN,FIGHT,LIGHT,INSERT,TAKE,WAVE
  376. 3830 DATA RELEASE,CONTINUE,DESTROY,SIR,FIX,EAT,?,INVENTORY,HOCUS
  377. 3840 NV=30:DIMVB$(NV):FORI=1TONV:READVB$(I):NEXT
  378. 3850 M1$="[212]HE PARROT CHANTS: [211]IR [193]LEXANDER........[211]IR [193]LEXANDER !
  379. 3860 M2$[178]"(null)HE (null)ROLL SCURRIES AWAY IN FEAR.
  380. 3870 M3$="[199]ULP GLUK GULP! (BURP) [212]HAT WAS REFRESHING !
  381. 3880 [134]H$(NP)
  382. 3890 H$(25)[178]"(null)HIS PARROT TALKS...
  383. 3900 H$(29)="[195]IGAR ? [195]IGARETTE ? [212]IPPARILLO ?
  384. 3910 H$(10)[178]"(null)OU KNOW, THIS WORLD IS ENCHANTED...
  385. 3920 H$(12)="[217]OU CAN MAKE THE PASSAGE LOOK LESS ALIKEBY DROPPING THINGS."
  386. 3930 H$(13)=H$(12):H$(14)=H$(12):H$(15)=H$(12)
  387. 3940 H$(1)="[201] THINK WE'RE SUPPOSED TO LEAVE WHAT WE FIND HERE.
  388. 3950 H$(35)[178]"(null)FTEN TIMES OIL MEANS AN AUTO BODY SHOP IS NEARBY.
  389. 3960 H$(31)="[212]HE BUG WILL NOT BOTHER YOU. "+CR$+"[201]T IS ASLEEP. "+CR$
  390. 3970 H$(31)=H$(31)+"[200]INT: [201]F YOU LINGER TOO LONG IN THIS
  391. 3980 H$(31)[178]H$(31)[170]CR$[170]"      ROOM IT WILL WAKE UP !
  392. 3990 H$(2)="[217]OU KNOU, IN THIS ENCHANTED WORLD, MANY THINGS THAT ARE SMALL "
  393. 4000 H$(2)=H$(2)+"ON EARTH ARE VERY LARGE...
  394. 4010 H$(20)[178]"(null)RY TO FIND YOUR WAY TO THE OTHER END !"
  395. 4020 H$(23)[178]H$(20)
  396. 4030 [142]
  397. 4040 [153]"----------------------------------------":[142]
  398. 4050 [153]"LEFT$IT ANY KEY TO CONTINUE.":[151]198,0:[146]198,1:[161]CM$:[137]200
  399. 5000 [153]" ? ";
  400. 5009 CM$[178]" "
  401. 5010 [151]198,0:S[178]TI:H[178]2:H3[178][185](0)
  402. 5020 [161]Q$:[139]Q$[179][177]""[167]5050
  403. 5030 [139]S[179][178]TI[167][153][202](" (null)",H,1)"CMD";:H[178]3[171]H:S[178]TI[170]25
  404. 5040 [137]5020
  405. 5050 H1[178][198](Q$):H2[178][195](CM$):[139](H1[175]127)[179]32[167][153]" CMD";:[137]5090
  406. 5060 QQ$[178]Q$:[139]FL[175](H1[175]127)[177]64[175](H1[175]127)[179]91[167]QQ$[178][199](H1[176]128)
  407. 5070 [139]H2[177]LE%[167]5020
  408. 5080 CM$[178]CM$[170][199](H1[175]127):[153]QQ$;:[137]5020
  409. 5090 [139]H1[178]13[167]CM$[178][202](CM$,2):[153]:[142]
  410. 5100 [139]H1[178]20[175]H2[177]1[167]CM$[178][200](CM$,H2[171]1):[153]"CMD";:[137]5020
  411. 5110 [139](H1[179][177]141)[167]5020
  412. 5120 [151]211,H3:[129]I[178]1[164][195](CM$):[153]" ";:[130]:[151]198,H3:[137]5009
  413.